#!/usr/bin/perl
#
# Freezer test
#
use Counter;
use Fcntl;

$Counter::User::DEBUG = 1;
$users = Counter::open(O_RDWR);

while ($ARGV[0] =~ /^-/) {
    $key = shift;
    if ($key eq "-n") {
	$Counter::User::TESTMODE = 1;
	$key = shift;
    }
}
while ($key = shift) {
    $rec = $users->get($key);
    die "No record $key found\n" if !$rec;
    $rec->freeze();
}
